home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ Network Login Win.xpl < prev    next >
Text File  |  1999-11-02  |  2KB  |  76 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Network\Login\3) Inside Login Window"
  5. "NAME"="Options"
  6. "VERSION"="1.32"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show "Shutdown without Power Off" button"
  9. "TEXT 2"="Activate NUM-LOCK while waiting for login"
  10. "TEXT 3"="Remember last user name"
  11. "DESCRIPTION 1"="If the "Shutdown without Power Off" button is enabled, it is possible to shutdown the computer without login from the Welcome window."
  12. "DESCRIPTION 2"="This setting is normally enabled on Windows NT Workstation and disabled on Windows NT Server."
  13. "DESCRIPTION 3"="If the second is activated, CAPS-LOCK is activate while Windows NT waits for a login ("Press Ctrl-Alt-Del to login")."
  14. "DESCRIPTION 4"="Activate "Remember last user name" if the name of the last user using this computer should be displayed in the login window (default). If you don't want this, deactivate the option."
  15. "AUTHOR"="Xteq Systems"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  18. "COMMENT 2"=" "
  19. "COMMENT 3"=""Remember last user name" setting supplied by Marco Schelling (Marco.Schelling@simac.nl)."
  20. "COMMENT 4"="Thanks to alexmorris@uk.ibm.com for the NUM-LOCK fix."
  21.  
  22. sP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\"
  23. v1="ShutdownWithoutLogon"
  24. v2="---NOT USED YET * SEE BELOW---"
  25. v3="DontDisplayLastUserName"
  26.  
  27. Sub Plugin_Initialize 
  28.  If RegPathExists(sp) then
  29.   
  30.     i=RegReadValue(sp & v1)
  31.     if i=1 then SetUIElement 1,true
  32.  
  33.     i=RegReadValue("HKUS\.Default\Control Panel\Keyboard\InitialKeyboardIndicators")
  34.     if i="2" then SetUIElement 2,true
  35.  
  36.     i=RegReadValue(sp & v3)
  37.     if i<>1 then SetUIElement 3,true
  38.  
  39.  else
  40.   Disable
  41.  end if
  42. End Sub
  43.  
  44. Sub Plugin_CheckData(ElementIndex)
  45. End Sub
  46.  
  47. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  48.  b=GetUIElement(1)
  49.  if b=true then
  50.   Call RegWriteValue(sp & v1,"1",1)
  51.  else
  52.   Call RegWriteValue(sp & v1,"0",1)
  53.  end if
  54.  
  55.  If GetUiElement(2)=true then
  56.     Call RegWriteValue("HKUS\.Default\Control Panel\Keyboard\InitialKeyboardIndicators",2,1)
  57.  else
  58.     Call RegWriteValue("HKUS\.Default\Control Panel\Keyboard\InitialKeyboardIndicators",0,1)
  59.  end if
  60.  
  61.  b=GetUIElement(3)
  62.  if b=true then
  63.   Call RegWriteValue(sp & v3,"0",1)
  64.  else
  65.   Call RegWriteValue(sp & v3,"1",1)
  66.  end if
  67.  
  68.  Call Logoff
  69. End Sub
  70.  
  71. Sub Plugin_Terminate 
  72. End Sub
  73.  
  74.  
  75.  
  76.